(require :rtmeus (format nil "~A/eus/common/rtmeus.l" (unix:getenv 'RTMEUSDIR)))
;;
(warn "do 'irteusgl test-pluginmode.l' on another shell before testing this script!~%")
;;
(setq *rtm* (instance RTMeus :init "localhost"))
(setq hoge (send *rtm* :resolve-component "TimerTest0.rtc"))
(setq fuga (send *rtm* :resolve-component "TimerTest1.rtc"))
(send *rtm* :set-master-comp hoge)
(send *rtm* :add-slave-comp fuga)
(send *rtm* :set-plugin-mode :remote t)
(send *rtm* :all-activate)
(unix:sleep 10)
(send *rtm* :all-deactivate)
